let head = "      module Private :";;
let tail = "        end";;

let in_private = ref false;;

try
	while true do
		let line = read_line () in
		if line = head then (
			in_private := true
		) else if !in_private && line = tail then (
			in_private := false
		) else if not !in_private then (
			print_string line;
			print_newline ()
		)
	done
with End_of_file -> ()
